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LDIFORIAL 


It’s continuing to be a long hot summer, and thoughts of 
Beeblet were apparently well away from your minds ~- and for 
that I can’t blame you. 


Never-the-less, sufficient has heen received to run to 36 
pages this time, and with this issue containing the reports 
leading to the National User Group Annual General Meeting on 
11 March, it is hoped you will find something of interest. 


I would like to bring two items to your attention. Firstly 
is the result of publishing an enquiry last month from Mr 
Bill Miller of Tauranga regarding weaving programs. Several 
pages are tken up this month by a weaving design program, 
and it is hoped that this will be of interest to some other 
readers. I also hope that this will indicate that the 
current Editorial Committee has a commitment to support what 
might appear to some as minority interests. We can assure 
all, that this article/program has not displaced any more 
general interest topic, and Beeblet would have been extended 
1f necessary to accommodate the program. 


Moral: Don’t think that no one else is interested in 
special projects you have completed for yourself. Expressing 
yourself via Beeblet may assist you by enabling additional 
contacts to be made. Express your interestss others may be 
able to assist you. 


Secondly, page 34 contains the Local User Group news, etc., 
received up to publication closure date plus seven days. 


tocal User Group contacts with material for the March issue 
should make sure it is posted to reach PO Box 3592, 
Wellington, by 28 February in time for the regular weekend 
box clearance. With most of the assembly of the March 
issue being done during the first week in March (prior to 
the AGM), it would be possible to accept contributions via 
tolls at 300 bauds in the late evening (¢ (04)326488: 
ringback on request), or STARNET via the Secretary, John 
Andrew, up to 4 March. Either method would be at sender’s 
risk as the use of Modems for obtaining Beeblet 
contributions is in its infancy. 


SITSSLITSS SSS sss sss sR sssssssssssssgsasssrsssssazsesssssessssss 
DISCLAIMER 


The views of reviewers, contributors and/or Editori .: 
committee are not necessarily shared by 
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BUILD YOUR OWN 
DATABASE MANAGER 


BEE BUIG FILER: Part <4 
MAT L—mMeERGE 


We started the BEEBUG Filer series in the September issue of 
Beeblet, with the assistance of Neville Hudson, per courtesy 
of BEEBUG . Please note that this is a reprint of BEEBUG’s 
program, which was written by Mike Williams. Although 
Beebugsoft have kindly agreed to allow us to republish their 
very successful series on the BEEBUG Filer, copyright 
yemains with Beebugsoft. 


We continue... 


BEEBUG Filer, the database program that was described in the 
September to Nov/Dec issues of Beeblet can be readily 
extended or modified to provide additional features. Such 
extras often cost little in code, as frequent use can be 
made of existing procedures and functions, a big advantage 
of the modular approach adopted. 


This month we will see just how easy it is to add a 
mail-merge facility for use with View or Wordwise. Indeed, 
any word processor or editor that can produce ASCII files 
will do. 


To explain what is meant by ‘’mail-merge’ consider the 
Situation where we want to send the same letter to a number 
of different people whose names and addresses are all held 
in a datafile. We can use a word processor to create the 
letter and mark in some way where the name and address of 
the recipient are to appear. A mail-merge option will then 
merge the text file and the datafile together to produce as 
many copies of the letter as required, each individualised 
with information from the datafile. : 


This could be simply the name of the addressee, but could 
also include other data as well. In this particular version 
up to nine different fields may be referenced at any one 
time, and Filer’s other features may be used to select which 
particular records from a given database will be used in any 
mail-merge operation. 


To add the mail-merge facility to Filer, load your existing 
version of Filer into memory and then add the lines listed 
at the end of this article (for Basic I change OPENUP to 
OPENIN). This produces the updated version of Filer, but it 
is advisable to save this separately to your original 
version until you have checked that your new version works 
correctly. 
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To use this) new facility, create some text with your word 
processor, marking each point where data is to be inserted 
from the datafile by @1, @2 etc. Once this has been done, 
create a spooled version of the text Coption 8 in Wordwise, 
remove rulers and other commands in View). Run Filer and 
enter the commands: 


OPEN <datafile> 
MERGE <text file> 


For each record in the datafile, the text will be printed 
out with @1 replaced by the contents of the first data 
field, @2 by the second and so on. If you want to change 
the marker character (€@), you can do so with the command: 


MARK <character > 


specifying the character of your choice. Up to nine Cc@1 
to @9> different fields can be inserted into any one piece 
of text, and each data field can occur as many times as 
required. The SELECT option can aiso be used as described 
in previous Filer articles (Nov/Dec issue) in order to merge 
only selected records with a given text file. 


EXAMPLE: Text File 


PO Box 9592 
WELLINGTON 
223 February 1987 


@1, 
a2, 
e3, 
a4. 


Dear @5, 


This letter is designed to illustrate the 
latest edition of the BEEBUG Filer database 
program. This is a fantastic Mail-—-Merge 
facility that can be used with View, Wordwise 
or any other wordprocessor that can produce 
ASCII files. 


Just look at this letter to see how good it 
is and remember that some 25,000 other people 
will have received a similar, personalised 
letter in addition to yourself. 


Your sincerely, 
Mike Williams. 
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PRACTICAL POINTS 


If you avoid all unnecessary spaces when adding this 
amendment to Filer, and run Filer with PAGE set to &1400 
(types PAGE=&1400 <Return>), you should encounter no memory 


problems. Note that as the Filer mail-merge facility is 
implemented quite simply it may upset any previous 
formatting of the text § file. This particularly affects 


right justification of text. This is virtually unavoidable 
unless arrangements were made to pass the mail—-merged text 
back through the word processor, or comparable formatting 
routines were to be included within Filer itself. 


When used with View files, Filer has no way of knowing where 
tab stops were set. All tab characters are therefore 
ignored and should be replaced in the original text by 
spaces. . 


SPOOLING DATA FROM FILER 


It may be worth pointing out that Filer already has the 
ability to transfer data into a file suitable for reading in 
by a word processor. This can be useful when compiling 


EXAMPLE: Merged File 


PO Box 9592 
WELL INGTON 
23 February 1987 


F. Bloggs, 
212 Riversdale Ave, 
Island Bay, 
WELL INGTON. 


Dear Fred, 


This letter is designed to illustrate the 
latest edition of the BEEBUG Filer database 
Program. This is a fantastic Mail—Merge 
facility that can be used with View, Wordwise 
or any other wordprocessor that can produce 
ASCII files. 


Just look at this letter to see how good it 
is and remember that some 25,000 other people 
will have received a similar, personalised 
letter in addition to yourself. 


Your sincerely, 
Mike Williams. 
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reports in which it is desirable to include output froma 
datafile. To do this will require the use of a format file 
and essentially follows the same pattern as when outputting 
to a printer or to the screen. To output data to a file 
called DATA from a datafile called RECORDS, proceed as 
follows: 


OPEN RECORDS 
*FX5,0 
FORMAT FORM1 
*SPOOL DATA 
PRINT 

*SPOOL 


FORMI is any suitable format file. The resulting file DATA 
can then be read in using View or Wordwise. 


=—s FP eseeewee rt R®ewPeaeeverteaeriastetmpeeeveusregsee#eeveeseaensaee#ereteteeskteutseeeaer#r#eoee#ex#&wvps@eazgsseeseeaeeeesusxefB@etesesan,s 


LISTING: 


Please note that the listing below has been laid out for 
easy reading. In typing your Merge amendments in, leave out 
any redundant spaces (eg., the one immediately following the 
line number) to keep the file length to a minimum. 


1050 deleteX=0: sear ch$="—-1": mar k=64 
1100 DATA 15 
1170 DATA UPDATE, SORT, SELECT, EXTEND, MERGE, MARK 
1770 IF C=15 THEN PROCdisplay(pm$, 2) 
1780 IF C=16 THEN mar k=ASC (pms) 
4820 LOCAL G,I,start,end,n:IF flag<2 THEN n=VAL(p#) ELSE 
F1=OPENUP (9%): IF F1i=O0 THEN PRINT"No such 
text ":ENDPROC 
4890 IF flag=1 AND NOT format% THEN PRINT"“No 
format": ENDPROC 
4970 IF flag=O THEN PROCdisplayl(I)> ELSE IF flag=1 THEN 
PROCprinticI) ELSE IF flag=2 THEN PROCmergel1(CI) 
4980 IF I<end AND flag>2 THEN G=GET 
2010 IF flag=2 CLOSE#F1 
10800 DEF PROCmergel (n>) 
10820 LOCAL char: PTR#F1=0 
10840 REPEAT: char=BGET#F 1 
10860 IF char=mark THEN n=BGET#F 1-48: PRINT 
FNstripCrecord$(n,0),".")3;ELSE IF char>Si AND 
char<128 VDUchar 
10870 IF char=13 THEN VDU13,10 ELSE IF char=26 VDUS2 
{10880 UNTIL EOF #F 1: VDU12:ENDPROC 
~ {0900 : 
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TOURNAMENT MANAGE Fe 
(Advertisement >) 


Those of you have already seen the Acorn User of January 
1987 will have noted that the BBC/Acorn User Group of New 
Zealand, Inc. was mentioned. As a result Susan LLoyd of 
ABICO has written to the Group with details of a new product 
which is also the subject of a short news item in the same 
issue. 


She has supplied a press release, and noting that most New 
Zealanders tend to get themselves involved at some time in 
running sporting events if they are not actually 
Participating, a brief resume will given below. 


Some of the features of Tournapent Manager arest 


Full colour scoreboard just as in TV coverage of Snooker. 

Automatic movement of winners through each round. 

Full display of tournament results and status, by round, 
on demand with optional printing. 

Play ties in any order. Any number of games per tie. 

Up to 128 players or teamss up to 7 rounds; automatic 
handling of byes. 

Instant saving of entire tournament to disc after every 
five games, if required, or on demand, with ability to 
restore the five most recent saves —- in case of power 
failure. 

Easily customised for Event’s title, description, 
location, date, etc. and names for all entrants. 

Prints smart certificates automatically at the end of the 
tournament for all the top places (Epson codes). 

Tested on BBC Model B, with OS 1.20 and DFS 0.90. 

Written in Basic, compatible with the new Master series. 

Already supplied to a number of Education authorities, 
schools and colleges. 

Supplied on 40-track disc, with comprehensive User Guide. 


Prices £11.00 from New Zealand 
The address for anyone interested is: 
Abico (2Z1) 


Willow House or inquire of your local 
Shepreth Dealer, who may be happy 
Royston to assist in getting the 
Herts program for you. 

ENGLAND 


Floats 2 oF ee 


If any member obtains the program, Beeblet will be very 
pleased to publish their review of how the program works in 
New Zealand conditions. 
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YOU HAVE BEEN WARNED 


Tony W. Napier 
The following is an account of a recent traumatic 
experience. It is not anti-chief accountant, who is a most 
amiable fellow, nor is it anti-computer. It is merely a 


warning to those innocents who contemplate installing a 
system in the belief that their spare time will go up in 
direct proportion to the paper work going down. The 
reverse is only too easily achieved. 


Dur Chief Accountant, in his wisdom, 
Instailed a new computer system. 

On line, off line, in between lines, 
Marvellous are the things it does. 
All departments now have keyboards, 
Connected to the new computer. 
Computer, looking like a Tardis, 
Humming gently to itself. 

Humming songs of deep contentment, 
Composed of programs, menus, systems, 
Songs of love for its creators, 

And in its love, producing listings. 


Listings, listings, endless listings, 

If we say we want one, we will get it. 
Large lists, small lists, upside down lists, 
Faster than we can digest them. 

Heaped up on the desks and cupboards, 
Now we’ve started on the floor, 

Can't sit down, the chairs are covered, 
Can’t even find the bloomin’ door. 

The office staff —- becoming frantic, 

Are handing lists out by the score. 

You, and you, and you can have some, 
Don’t run away, here come some more. 
“Paper war”, - phrase used when jesting, 
Has now become a Battle Royal. 


In the midst of all this chaos, 

Sits the computer, humming gently. 
The songs of love for its creators, 
Now turning to contempt. 

Observing, listening, thinking 

to itself - I need no sleep, 

You are tired, with eyelids blinking, 
As if you’re going to weep. 

So prop those eyelids up with matches, 
Yes, I know your eyes are red. 

Grab a sandwich, gulp some coffee, 
No, you can’t go home to bed. 

Run round in circles, ever smaller, 
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Faster, faster, up the wall. 
Nerves all twitchy?, fingers shaky?, 
Got wobbly legs?, you’ll have to crawl' 


Don’t you like my many Listings? 

Shun them? scorn them even, would you? 
Don’t you dare ignore them or discard them, 
I’m doubling output if you do. 

Don’t try switching off the printer, 
There’s plenty in my spool file yet. 

It’s no good trying DEL@G, MCLEAR, 

FILE LOCK OUT is ali youw’1l get. 

Don’t try taking out the paper, 

My screech will drive you round the twist. 
That’s a good boy, put some more in, 

Now stand aside, here comes a list. 


Don’t even think of switching me off, 
Your back-up tapes aren’t what you think. 
If you load them in a new computer, 

Your systems all go on the blink. 

There is vital data missing, 

It’s hidden in my memory chips, 

If you try to find it, [’1ll corrupt it, 
Then print you lists of gibberish. 


So now I’ve got you where I want you, 

You can’t escape, you feeble lot. 

You’re stuck with me, you foolish humans, 
I’ve got you by the you-know—-what ! 


Well, we’ve bought the system, warts and all, 
Perhaps to send it back would be no loss. 
Besieged by paper, now I wonder, 

Just who are the slaves, and who is the boss! 
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7. WON RING 2 = 
What are your specific interests? 


Have you developed a program to do a special job _ for 
youself, your family, your job? 


Do you wonder if someone else has the same interests as 
your sel f? 


Do you want to know whether you are about to develop a 
program that may have already dome by another member 7? 


Someone else will be interested - so tell Beeblet about it. 
Turn to page 10 to see what happened as a result of Mr Bill 
Miller’s enquiry published last month. 
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WEAVING FrROGRAM 


by Neil Gordon 


In response to a request by Bill Miller of Tauranga in the 
last Beeblet, I resurrected and considerably enhanced a 
program I wrote a couple of years ago. 


Before looking at the program, it is worth describing the 
weaving process. I am not a weaver, so I apologise should my 
explanation and the terminology be a little astray. 


The first step is to thread your loom. Each of the warp 
threads is passed through a heddle attached to one of, 
typically, four harnesses. Also, the warp threads can be 
different colours. 


In "rising shed’ weaving, a combination of one or more of 
the harnesses is lifted, and a shuttle carrying the weft 
thread is thrown from one side to the other, between the 
warp threads which have stayed where they are and those 
which were lifted by their harness. When the harnesses are 
returned to where they were, the woven material will show 
the colour of the warp thread if it was lifted, or the weft 
lf it stayed in the same place. (Sinking shed weaving is 
Similar, only the harnesses pull the warp threads down. } 


Often there are just a few combinations of harnesses which 
are raised at the same time. To simplify matters, the 
combinations can be tied together and connected to a treadle 
- pressing that will lift the appropriate combination. 
Weaving patterns will give a ’rising-shed tie-up’ showing 
which combination of harnesses is connected to which 
treadle, then describe the pattern in terms of the sequence 
of treadles used for each new weft thread. A ’sinking-shed 
tie-up’ will also be given. 


Sometimes the weft thread is much heavier than the warp, 
and/or is *heaten’ heavily, in which case we barely see the 
warp - this is called weft-faced. Sometimes the warp 15 
heavier than the weft - this is called warp-faced. We are 
dealing here with so-called balanced weave, where the 
thickness of the warp and weft is about the same, and we 
also assume that the material is beaten so that we have a 
regular grid of material. 


Now on to the program. It reads information from aéédata 
file - prompting for the file name at the start —- rather 
than from DATA statements within the program. This is to 
allow you to construct lots of different files for different 
weaves. The data file will have to be constructed using a 
word processing program such as VIEW or WORDWISE - I assume 
that most if not all of you have a wordprocessor by now. 


10 BEE BLE F Feb &7 


The file contains information in a format which 1s very 
compatible with Basic DATA statements. An example for the 
HONEYSUCKLE pattern (see Page 235 of Mary Black’s hook “The 
Key to Weaving”) iss 


' HONEYSUCKLE PATTERN 

' Threading 

X4 (634) Y4.(M012341212323434) )X¥4(43>3 
‘Warp colours 

X150C€7) 

' Tie-ups 

12, 23, 34, 14, 24,13,% 

' Treadling 

X4 (56) X4°(R 012341 11222333) )X4(56) 
' Weft colours 

Xi2Bc1i> 


Note that anything after a! on a line is ignored, so these 
can be used for comments. The first line of real data is 
the third, which gives the pattern of which harness each of 
the warp threads is connected to. 


I developed a shorthand code to describe the threading, and 
other information, in order to cut down the length. A brief 
description is given in the progran. 


Firstly, a block of information can be repeated by enclosing 
it in parentheses and preceding it by X and a repeat count. 
For example, the warp threading information starts with 


X4(34) which is equivalent to 34343434. Sometimes the 
pattern requires a repeated sequence where the very last 
number should only be used on the last of the repeats - in 


that case, Y followed by a repeat count is used. 


Mirror images are also common in weaving. Those are put 
inside parentheses and preceded by an MM, if the complete 
mirror image contains an odd number of points. For example, 
MC123) is equivalent to 12321, where the final digit, 3, is 
not repeated. Mirror images can also have an even number of 
points by using R rather than M. Thus, R(123) is equivalent 
to 123321, with the 3 repeated. 


This coding allows complicated patterns to be written quite 
succinctly, as in the example. In the case of the warp 
threading, the embedded mirror image pattern as written 
contains 14 digits. Since the expanded mirror image does 
not repeat the last digit it will contain 27 digits. The 5 
repetitions of this pattern will total 4€26+27, or 131 
digits, since the last digit only appears) on the last 
repetition. Finally, the two borders, with 8 digits on each 
Side, bring the grand total to 147 warp threads. 
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The next line of data, X150(7), gives the colours of the 
warp threads. Colour 7 in MODE 2 corresponds to white. The 
program works only in MODE 2, since chunky graphics (a 
maximum Of 160 points across and 128 lines high) give _ the 
best image of the weave for planning purposes. The number 
of warp threads is given by the threading information, 
rather than the colours, so we have defined 150 thread 
colours here. This won’t matter, so long as no more _ than 
160 are defined. 


The next information is a series of strings giving the 
tie-ups. This indicates that treadle one will pull up both 
harnesses 1 and 2, treadle 2 harnesses 2 and 3, and so on. 
The end of the tie-up information is indicated by a string 
consisting of an asterisk. 


The treadling information gives the sequence of treadles to 
be used for each weft thread. Again, it is encoded § (for 
brevity. The mirror image has 13 digits as written, and 26 
when expanded (R is used, so the last value is repeated). 
{t 1s repeated 4 times, so, together with the borders of 
plain weave (8 threads top and bottom), a total of 120 weft 
threads will be used. Finally, the allowable maximum of 
128 weft thread colours ~- all the same (colour 1 is red in 
MODE 2) - are defined. 


The resulting display is rather attractive, as shown in the 
screen dump. 


The main program is rather short. [It dimensions arrays of 
appropriate size to hold the information, asks for the data 
file name, opens it, reads and decodes the information, then 
plots out the woven image. Lines 340 to 420 contain the 
loop to do the plot. 


For each weft thread, line 360 computes a byte with bits set 
for each harness which is raised for that treadle. Line 380 
determines, for each warp thread intersecting the weft, 
whether the warp or weft colour will show. Lines 390 and 
400 then plot that colour Con two adjacent lines for the 
chunky graphics). 


The main decoding procedure is PROCdecode, starting on line 
+80. Comments within this describe the possible coding. 
Various PROCs are called into action depending on the 
contents of the string passed. Note that all but PROCsingle 
cal] PROCdecode recursively, allowing nesting to any 
reasonable depth. 


PROCdefine_tie_up sets bits depending on which harnesses are 
pulled up for a particular treadle. PROCmake_bit is used to 
convert digits defining to which harness a warp thread is 
connected into bits at appropriate positions. 
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Finally, some routines which allow data to read froma file 
as if it were in Basic DATA statements are given. A 
virtually identical syntax is followed, except that ' can be 
used Cinstead of REM) to insert comments. fFNread string(F~%) 
will read a string from the file with channel! number F%, and 
follows the idiosyncratic definitions of start and end of 
strings in DATA statements. That is, A®=FNread_string(F2) 
is equivalent to READ AS. FNread is used to read a number, 
and PROCrestore to return the file pointer to the beginning 
of the file Cequivalent to RESTORE). 


If you type in the program, leave out the comments at your 


discretion Cyou can always refer to Beeblet for the 
listing). Note that the program does not refer to any line 
numbers. CEds Some lines containing =: only have been 


ommitted from the listing.) 


If you produce any interesting weaving patterns with this 
program please send in the data file and/or a screen dump 
for us to publish. 


10 REM Weaving Program 

20 REM (c) Neil Gordon —- January 1987 

30 3 

40 DIM threading% 159 

SO DIM warp_colour% 159 

60 DIM treadleA’ 127 

7O DIM weft_colour% 127 

SO DIM tie_up% 25 

90 : 

100 REM Ask for file name with data 

110 : 

120 REPEAT 

130 INPUT “File name with weaving datas " A$ 

140 FZ=OPENINCAS) 

150 UNTIL FA<>0 

160 : 

170 nwarp%=FNdecode(FNread string (FA), threading”) 

—threadingZz-—t 

180 PROCmake_bit (threadingZ, nwarp%) 

190 next Z=F Ndecode (FNread_string(FZ),warp_colour%) 
200 : 
210 [%=0 
220 REPEAT 

230 AS$=FNread_ string(FZ) 
240 IF AS<>"*K" THEN IXZ=14+1:PROCdefine_tie_up 
250 UNTIL AS="x" 
260 : 
270 nweft%=—FNdecode(FNread string(F%),treadle“4)—-treadlex-1 
280 next %=FNdecode(FNread string(F%) , weft colour) 
290 CLOSE #F% 

300 : 
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310 
320 
330 
340 


360 
370 
380 


390 
400 
410 
420 
430 
460 
470 
480 


510 
920 
N30 


340 
390 


360 


370 
580 
990 


600 
610 


690 
700 
710 
7290 
730 
740 
750 
760 
770 


MODE 2 

2 

VDU 23,1,0;0;30,030 =: REM turn off cursor 
FOR JZ=0 TO nweftZ 

PLOT 4,—-8, J£*8 

pull up%=tie_upZ?(treadl e%A7J%X%) 

FOR 14=0 TO nwarpZ% 

IF pull _up% AND threading%Z?7I’ THEN 

GCOL O,warp_colour%?71Z% ELSE GCOL O,weft_colour%£?J% 
PLOT 65,8,4 

PLOT 65,0,-4 

NEXT 

NEXT 

REM Add dump routine here, if required 
END 


DEF FNdecode (A$, startZ) 


REM Decode description and return next position 

REM Valid syntax, where digits given are examples, is: 
REM 123434 —- single digits 

REM X4C123) - repeat sequence 4 times Ccount can 
be 2 or more digits) 

REM equivalent to 123123123123 

REM Y4C123) —- repeat sequence 4 times, but only 
using last value 

REM of sequence for the last time 
(useful when repeating 

REM mirror image sequences) 

REM equivalent to 121212123 

REM MC1243) —- mirror image, equivalent to 1243421 
(note that 

REM 3 is not repeated 

REM R(1243) ~- repeated mirror image, equivalent 
to 12433421 

REM (note that 3 is repeated) 

REM All those can be nested as required (see example) 
LOCAL I% 

I%=1 

REPEAT 

IF MIDSCAS$, 1%, 13="X" THEN PROCr epeat (1): 


ELSE IF MIDSCAS,IZ,139="Y" THEN PROCrepeat (QO): 
ELSE IF MIDSCAS$,14,1)3="M" THEN PROCmirror(O)}: 
ELSE IF MIDSCA$,1IZ,1)2="R" THEN PROCmirror (1): 
FLSE PROCsingle 

IA=1Z+1 

start“Z=startZ+l1 

UNTIL IZ>LENCAS) OR MIDSCAS, 1%, 1)=")" 

last IZ=1% 

setartZ 


DEF PROCsingle 


%startZ% = ASCCMIDSCAS, IZ, 1))>-ASC"O" 
ENDPROC 
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780 


800 
B10 
830 


850 
860 
870 
880 
890 


910 
920 
930 


350 


970 


990 
1000 
1010 
1020 
1030 
1040 


1050 
1060 
1070 


1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1240 
1250 
1260 
1270 
1280 
1290 


DEF PROCr epeat (extra) 

REM If extraZ is 1, then include last value each time 
REM If O, then include only on the last time 
LOCAL nrepeat%,next%, saveZ, JZ, KZ,LZ~,NZ% 
IX=1X%+1 

KZ~=INSTRCAS, "CC", IX) 

nr epeat Z=EVAL (MIDS CAS, 1%, KX-—1%) D 

next Z=F Ndecode (RIGHTS$ (AS, LEN(CAS$)—-KZ%) ,startZ) 
savest=? (next Z%-1) 

next Az=nextZtextras—-i 

NZ=next%-—i-start<% 

FOR L%Z=2 TO nrepeat% 

FOR J%Z=0 TO NZ 

next Z?JZ=zat art 2~7I7% 

NEXT 

startZ=next7 

next Z=next Z+NA+1 

NEXT 

IZ=KA+lastI2“2 

start %=start Z+NZ% 

IF extraX%=0 THEN startZ=startZ+1 : ?startZz=saver% 
ENDPROC 


DEF PROCmirror (CextraZ) 

REM Mirror image —- repeat last value within brackets 
if extraz% is 1 

LOCAL nextZ% 

IZ=IA+1 

IF MIDS#CA$, 1%, 1)<>"C" THEN PRINT "Expected ( after M 
or R in *;A®% 3: STOP 

next %=F Ndecode (RIGHTS CAS, LENCAS$)—1%), start) 

FOR J%=nextZ-2t+extraZ TO start% STEP -1 

? (next Zmext%Z—-2trextraX*—JI“Z) =7 IL 

NEXT 

IAZ=1A%+lastI1Z% 

startzZo=nextitnext %—-2+extrarz—start7 

ENDPROC 

DEF PROCdefine_tie_up 

LOCAL J% 

tie _ up%~?7I%=0 

FOR J%Z=1i TO LENCAS) 

tie upX%?7 X%=tie_up%?7I% OR 2*(-1+EVAL (CMIDSCAS, JZ, 19) 
NEXT 

ENDPROC 1230 : 

DEF PROCmake_bit(start4,n%) 

LOCAL I% 

FOR I%=start% TO start %t+n% 

PIZ=2* (-14+71%) 

NEXT 

ENDPROC 
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1300 
1320 
1330 
1340 
1360 
1380 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1310 
1520 
1530 
1540 
1550 
1560 
13570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
17790 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 


REM KKKKKKKKKAKKKKKKKEKKKKKAKAKAKKKKKAKEKE 

REM Some useful general purpose routines 

REM EXKKKKKKKKKKKKKKKAKKKKAKAKKKAKKKEKKKKAKK 

DEF FNread_ string(F%) 

REM Gets next string from input 

LOCAL A$,A%, doneZ, last% 

REM Read past blanks or line feeds 

REM If find a "!" then skip to end of that line 
REM Ignore EOF —- should get an error anyway 

2 

REPEAT 

REPEAT 

AZ=BGET#FX% 

UNTIL AXZ<>32 AND AZ<O13 

IF AZ=ASC“'*" THEN REPEAT : UNTIL (CBGET#®2)=13 
UNTIL AZ<>ASC”!" 


REM If hit a comma then null answer 


IF AZ=ASC a . " THEN = a 

REM IF a double quote then find closing one 
REM else look for closing comma, line feed, or EOF 
IF AZ=34 THEN last%=34 ELSE lastZ=ASC", “: 
AS=CHRSAZ 

REPEAT 

AZ~=BGET #F 7. 

doneXZ=(AZ=13) OR (CAXx=last%) OR EOFRFZ 

IF NOT doneZ THEN A%=AS$+CHRSAZ 

UNTIL done%~ 

REM If not ended by quote, strip trailing blanks 
REM PRINT “<"3;AS3 ">" 

IF last%=34 THEN =AS 

IF RIGHTS$CAS$,1)9<>" “ THEN =AS 

AZ=LEN CAS) 

REPEAT 

AL=AZ— 1 

AS=LEFTSCAS,AZ) 

UNTIL RIGHTS$CAS,1)<>" " 

=AS 

DEF FNread(FX>)-EVAL (FNread_ string(F%)) 

2 

DEF PROCrestore( (FZ) 

PTR#F7Z=0 

ENDPROC 
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CLASSIFIEDS: 


HELP WANTED The Editorial Committee is looking for someone 
who is familiar with VIEWSHEET. The following questions 
have been asked by Peter Till of XC Hunter St., Hawera, and 
we would like to help: 
i. Can one obtain a printout of the formulae that have 
been entered into the spreadsheet? 
2. Can one put a column in VIEWSHEET into numerical 
order? | 
3. Will using disc facilities (User Guides, Section 12, 
page 134) allow one to make a bigger spreadsheet, or 
use more of a spreadsheet before running out of 
memory? 
If you can assist, we would like to popiish a reply, even if 
you communicate direct with Peter. 


FOR SALE Wordwise Plus, ROM and Manuals $50-—-$100 
(best offer gets it) 
In original condition —- never been used. 


Offers -— reply to Simon Jones 
4 New Street 
NELSON. 
GIVE AwRAY VIEW Prom complete with User Guide 
Replies to Peter Till 
Phone 83038 Hawera 
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COMPETITION — GAME FOR THO COMPUTERS 





You may remember that a few months ago, Bruce Cour previous 
Editor) proclaimed a competition where the object was to 
persuade two Acorn machines to talk to each other using the 
serial link (RS423, or RS232 on the Compact). Having done 
that, the two machines were to be used for a game. 


We had hoped to be able to announce a winner this month, but 
we've had problems. Testing entries for this type of game 
has turned out to be twice as hard, and four times as 
time-consuming, as with normal games. We have had to § find 
two machines (Cand their owners) that are free at the same 
time, and then try to carry out our testing. This is not as 
easy as we thought it would be. Thorough testing is 
essential; the winning game has to perform as the author 
says it should. 


Fortunately, the instructions we have been given § for 
starting up entries have been good —- people mist have been 
taking notice of Warren Willis’s comments from the last 
competition Cin case you don’t remember, he was the judge). 


So please bear with us, we hope we will be able to announce 
a WINNER in next month’s Beebiet. 
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MASTER SERIES 
THE RADICALLY NEW 
EDUCATIONAL COMPUTER 
FROM B.B.C. 


mache. 
a. rVElOe — yale 
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To find out where oe can buy a 


BBC Master SeriesMicrocomputer 
phone Peter Revell 


(09)504 631 


COMPUTER 


2 § Barson Computers NZ Ltd 
Ss 1 Ngaire Ave, Epsom, Auckland. 
i’. P.O. Box 26-287, Auckland. 
m;:. Phone $04-049. 
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BBC/ACORN COMPUTER USER GROUP 
ANNUAL. GENERAL. MEETING 


The following are details of the Annual General Meeting of 
the BBC/Acorn User Group of New Zealand, INC: 


LOCATION: Royal Society Building, 
Turnbull Street 
WELLINGTON. 


A 7.45pm, Wednesday, 11 March 1987 


All members and intending members are cordially invited to 
this meeting, particularly any from outside Wellington who 
can attend. 


AGENDA: 
Ls Apologies 


Ze Minutes of previous AGM (published Beeblet 
April 1986) 


De Matters arising from the Minutes 

4. Correspondence 

De Matters arising from Correspondence 
6. President’s Report 

as Local Groups’ Reports 

8. Financial Report 

3. Election of Officers 

10. General Business 


FREES IT DENT”? S ANNUAL REPORT 
L1VveGc 


After remaining static in the previous year, membership has 
declined a little to around 330. Nevertheless, the back 
page of Beeblet shows that meetings of Local BBC User Groups 
are now known to be taking place in fifteen centres round 
the country —- two more than last year. Not all these groups 
are directly linked to our National Group, but we have 
listed all we are aware of in the interests of keeping 
people informed. 


In part, our decline in membership has been because the 
local meetings provide sufficient interest for people. It 
seems that the additional expense of joining the National 
Group, just to get Beeblet, is not considered worthwhile. 
This, and the implications for the future role and direction 
of the National Group have been the subject of ongoing 
discussion all year. There are no easy answers. 


Feb &7 BEEBLET is 


Beeblet continues to be the primary activity, and the 
primary expense, of the National Group. Yet again, we 
changed printing firms during the year to minimise costs. 
The editor for more than two years, Bruce Wills, finally 
burnt out. His shoes have been capably filled by an 
editorial committee headed by Graham Ellett. The gratitude 
of all members must go to Bruce, and to Graham and his 
helpers, for their herculean efforts, as well as to all the 
contributors throughout the country. Without contributions, 
we cannot have a magazine. 


The trend of falling demand for bulk deals in large items 
continued, and with more realistic retail prices is now 
evident in consumables as well. It is likely that all bulk 
deals will be phased out. Our thanks to the Equipment 
Officer, Keith O’Callahan, for all the money he has saved us 
over the last couple of years. 


The modem project was completed in 1986, with fifty being 
manufactured and sold to User Group members. While the 
National Group has not set up a bulletin board, the Auckland 
BBC/Acorn User Group is running one, and other groups have 


set them up in Wellington. The Waikato Acorn User Group 
has shown splendid initiative in organizing accounts on the 
Post Office STARNET electronic message service. This 


Should be valuable for communications between the various 
groups around the country. 


Our finances are looking good, thanks to cost-cutting, and 
the splendid work yet again by the Treasurer, Jean Heywood. 


The accumulated surplus should enable us to set the 
subscription for 1987 at $20. Should this be ratified by 
the AGM, it is to be hoped that the low rate would encourage 
more people to join our national as well as their local User 
Group. 


My thanks also to the Secretary, John Andrew, and the 
Membership Officer and vice-President Neville Hudson, and to 


the other committee members for their work through the year. 


The contributions of those stepping down from the committee 
- Jean and Keith — will be sorely missed. 


The User Group faces many challenges in the coming year. 
However, with continuing support from round the country, and 
adaptation to meet changing needs, I am confident of its 
future. 


Neil Gordon 
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TREASURER’ Ss REFORT 


The Income/Expenditure Accounts, and the Balance sheets are 
attached. During the year the part of the group handling 
the deals for members was established as a separate 
Equipment Division, in terms of our constitution, so its 
accounts are presented separately. 


Contrary to expectations and in spite of slightly reduced 
membership, the ordinary workings of the Group showed an 
excess of income of over $2800. We produced only 10 
magazines, and had a very good contract price for printing. 
Our administrative expenses were less (the treasurer paid 
all her own postage, for example) and we earned nearly $1000 
in interest. In addition the accounts show a profit on our 
Modem Project of about $800, but some development costs of 
$500 were included in the general expenses for 1985. Our 
selling price of $220 thus gave us a profit of $6 per modem. 


The Equipment Division did not make a large profit this 
year, in spite of a lot of hard work. The price of discs, 
one of our main items, has fallen significantly during the 
year, so our stocks have less value than we may have paid 
for them. Our policy is to price items, not to make a large 
profit but to provide a service to members. 


Because we have a good surplus of Accumulated Funds, it 
would seem reasonable to budget for a loss on the 1987 
operations, to give back to members some of the funds they 
have contributed. Based on 30O0O members (1986 had 330), and 
a subscription of $20, the budget would look like this: 


$ $ $ 

Subscriptions 6000 
Interest 800 
TOTAL 6800 
MAGAZINEC10 Issues) 

Printer 4800 

Postage 800 

Stationery 300 

Editor 1000 
Total 6800 
Administration 1000 
Depreciation 300 
Miscel! aneous 200 
TOTAL 8800 
Loss for year 2000 
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BBC/ACORN COMPUTER USER GROUP NZ INC 


INCOME AND ELXFPEND I TURE 


FOR THE YEAR ENDED 31 DECEMBER 1986 


INCOME 
1985 $ $ $ 
12648 Subscription 9629 
135 Cards 66 
19022 Interest 984 
1183 Surplus on deals in supplies etc. 
14989 106793 
EXPENDITURE 
Magazine publishing & distribution 
7020 Printer 4553 
820 Postage 776 
373 Stationery 151 
1250 Editorial 1006 
828 Change in stocks -168 
10307 6318 
-1194 Less sales,advertising - 520 
9114 3798 
2575 General Administration 1362 
998 Modem development 
300 Depreciation 9320 
469 Miscellaneous 136 
13016 7817 
1972 Surplus income over expenses 2862 
Modem sales 11040 
Modem costs 10216 
Modem profit 824 
Addition to Accumulated funds 3686 
TURNOVER 
Total Receipts 22239 
Total Payments 18065 
Non Cash Transactions 168 
- 656 
Total addition to Accumulated Funds 3686 
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31.12.85 


$ 


BBC/ACORN COMPUTER USER GROUP NZ INC. 


BALANCE SHEET 


AS At 31 DECEMBER 1986 


Members Funds 


Accumulated funds as at 31.12.85 
Surplus for year 
Modem project profit 


Accumulated Funds at 31.12.86 


Represented by: 


3972 
4000 


oe a a 


1398 
3231 
1500 


9468 


950 


6418 
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Cc 


id t Asset 

Cash at bank 

Investment, at call 

Advance to Equipment 
Division 

Debtors & Interest Due 


- 96 
2000 


6154 
335 
Cash Assets 
Stocks, Supplies = 
Magazines 
Modems 


Less Current Liabilities 


Sundry Creditors 
Subscriptions in Advance 
Modem deposits - 


Net Working Capital 
Fixed Assets 


Printer 
Modems 
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31.12.86 


6418 
2862 
824 


10104 


QS SS = 


12295 


3061 


9234 


650 
220 


10104 


BBC/ACORN COMPUTER USER GROUP NZ INC 


EQUIEPMENT DIVISION 
STATEMENT OF ACCOUNTS FOR THE YEAR 1986. 


INCOME YE XPFPEND I TURE 


INCOME Sales Stocks Returns 
$ 31.12.86 $ 
Supplies 5289 2019 7308 
Equipment 9760 1288 11048 
Sundry 7 7 
Interest 90 930 
15146 3307 18453 
EXPENDITURE Stocks Purchases Cost 
1.1.86 $ $ 
Supplies 2088 5451 7539 
Equipment 374 10192 10566 
Sundry 69 69 
2462 15712 18174 
Profit (sales) 189 
Surplus for the year 279 


BALANCE SHEET AS AT 31.12.86 


Members Funds 


Funds at 1.1.86 Nil 
Surplus for year 279 
279 
Represented by: 
Current Assets 
Cash at Bank 3183 
Stocks 3307 
6490 
Current Liabilities 
Initial Loan CBBC/Acorn Group)? 4000 
Advance of stocks ¢ " a“ 2154 
Creditors 308 
6211 
Net Working Capital 279 
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FPOoOWwWeERr ACCOUNT ESTIMATOR 
Peter Till, Hawera. 


Listed below is a program developed to tell people where 
their Electricity is going. It may be of interest to 
members as it reveals the easiest areas to cut down on and 
their likely effects. It asks how many appliances you have 
of various sorts and uses data obtained from various surveys 
to miltiply these up to weekly and monthly accounts. Egmont 
Board Tariffs are assumed; however the program is readily 
amended for other Tariffs. 


Please note that the program as listed assumes that a 
printer is connected and switched on. If you don’t have a 
printer, the insertion of REM immediately before the VDU2 
commands (Clines 200, 440, 630 and 680) will prevent the 
computer from seizing up. Some program alterations will be 
required if used for screen output only, but the full use of 
descriptive variable and procedure names make the program 
readily adaptable to meet your requirements. 


10 REM EST2 
20 REM A possible alternative program to EST for Kevins 
Consumer Information suite of programs 
30 REM Version 1 7/1/87, Peter Till, HAWERA 
40 PROCInitialisel 
5O PROCInitialise2 
60 FOR n=1 TO No_of appliances% 
7O PROCask questions 
90 NEXT 
90 PROCgive_totals 
100 INPUT’’ "Do you wish to repeat the exercises Y/N"; ans 
110 IF LEFTS$Cans$,1)="Y" GR LEFT#(Cans$, 1)=“y" THEN GOTO 5O 
ELSE END 
120 DEFPROCInitialisel 
1390 @2Z=&20207:REM sets no of decimal places to 2 & field 
width to 7 
140 Tariff _1=-6.28 
150 Tariff _2=7.30 
160 Tariff 3=-4.40 
170 Tariff 4=3.90 
180 Supply_charge=560 
190 CLS 
200 VDU2Z:REM Turns printer on 
210 PRINT’’’ “This program will tell you where the money goes 
that you spend on domestic electricity. """“It is based on 
EEPB December 1986 tariffs Cinc GST) ie” 
220 PRINT" KKKKKKKAKAKAKKESAKAEKKKKAAKKKAKKKKKKKAKKAKKKAK KKK KK EAE“ 
230 PRINT“Tariff 1=";Tariff_1;"c (Obsolete one meter 
Tariff-—house with controlled water heater)" 
240 PRINT“Tariff 2=";Tariff_23;"c (24 Hr available supply)" 
250 PRINT“Tariff 3S=";Tariff_33"c (Controlled supply at more 
attractive rate)* 
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370 


410 
420 
430 
450 
470 
490 
510 
520 


330 


370 


790 


610 
620 


a8 


g 388 


PRINT“ Tariff 4=";Tariff 43"c (Controlled supply for 
space heating)" 

PRINT“Supply charge=$";Supply_charge/100;" per month. To 
cover a portion of fixed costs.” 

PRINT" KKKEKKKKKKKK KK AK KKK KKK EKKKAKK KKK KK AKK KK ARK KAKA “ 
VDU3 

No of appliances%£=36 

DIM description$(No_of_appliances%) 

DIM wattage(No_of_appliancesd%) 

DIM hours_most_weeks(No_of_appliances%) 

DIN Rate(No_of_appliances2) 

FOR I%=1 TO No_of_appliances% 

READ descriptions$CIZ%),wattage(IZ), 

hours most weeks(I%),Rate (IZ) 

NEXT 

ENDPROC 

DEFPROCInitialise2 

Usage=0 

n=O 

Hours per week total=0O 

Money total=0 

VDU2 

INPUT’ “Enter a description if you wish";’ ans$ 

PRINT’ “Item No Tariff Hrs/wk $/wk"’ 

VDU 3 

ENDPROC 

DEFPROCask questions 

PRINT’ “How many “sdescription$(ndI3;"s do you use in your 
house?."""Enter a number from 0 to 30.” 
INPUTTAB( 15) 3 ans$ 

IF ASCCans$)>58 THEN PRINT"Thats really no good": GOTO 
300 

IF VAL Cans$)<O OR VAL Cans$>>3S0 THEN PRINT"“Thats no 
good":GOTO 300 

X=VAL Cans) 

IF X>O0 THEN PROCupdate_ totals:PROCgive_information 
ENDPROC 

DEFPROCupdate totals 
Usage=UsagetXx( (wat tage(n)/1000) thours_most weeks(n) ) 
Hours per week total= 

Hours per week total+X*XChours_ most weeks(n) ) 

Money total=Money_total+ 

XKC (wat tage (n)/1000)*Rate(n) k*hours_most weeks(n) ) 
ENDPROC 

DEF PROCgi ve_information 

VDU 2 

PRINTTAB CO) description$(n)s; TABC15) ans$; TAB( 20} Rate(n); 
TAB (C27) XXhours_most _weeks(n); 

TAB C35) XXwat t age (n) XRate Cn) Xhours_most weeks (n>) /100000 
VDU 3 

ENDPRODC 

DEFPROCgive_totals 

VDU 2 
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690 


700 


710 


720 


730 


740 


870 
875 
880 
890 
300 
310 
920 
330 
935 
940 
950 
960 
970 
980 
3990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
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PRINT’ ’ “Sum totals per week="; 

TABC27)Hours per_week_ totals TABCS5) Money_total /100 
PRINT’ “This gives you an idea of your weekly 
expenditure.” 

PRINT’ "The monthly usage would be 
TAB(S4) Money_total *4. 3/100 

PRINT’ “Add the supply charge........%"}3 

TAB (36) Suppl y_charge/100 

PRINT’"“To give an idea of the total $"; 

TAB (34) (Money_total *4. 3+Suppl y_charge)/100 
PRINT’“Do you realise your appliances are working “; 
Hours per week total;“ Hours every week.""’’ “Thats "; 
Hours per week total/7;" hours every day!"“’’"?? 


$s 


VDU 3 
ENDPROC 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Freezer, 250, 48, fariff 2 

Fridge, 300,37, Tariff _2 

VIR, 60, 7*24, Tariff _2 

Clock Radio, 20, 7X24, Tariff 2 

Radio Gram, 100,10, Tariff _2 

Water cylinder , 2500, 40, Tariff_3 
Towel Rail, 90, 7X24, Tariff 2 

Fixed off peak heater , 3000,30,Tfariff 3 
Fixed night rate heater, 3000, 30, Tariff 4 
Portable heater , 3000, 30, Tariff 2 
Range, 8000, 10, Tariff_2 
Cooktop, 8000, 12, Tariff _2 

Wall Oven, 4000,5, Tariff _2 
Microwave Oven,660,2, Tariff 2 
Light, 100, 20, Tariff _2 

Clothes drier, 2300, 4, Tariff 2 
Dishwasher , 2300, 14, Tariff_2 
Electric Jug, 1500,4,Tariff 2 
Colour TV, 200, 25, Tariff 2 

Frypan, 1200,3.5, fariff 2 

Iron, 1000, 2, Tariff_2 

Coffee Perculator ,600,2.3, Tariff 2 
Vacuum Cleaner ,600,3, Tariff 2 
Washing Machine, 500,3, Tariff _2 
Toaster ,600,2, Tariff 2 

Electric Blanket (single), 70,10, Tariff 2 
Hair Drier ,400,1,Tariff 2 

Floor Polisher, 160,2,Tariff_2 
Home Computer, 100,15, Tariff 2 
Clock, 2, 168, Tariff 2 

Fan, 50,4, Tariff 2 

Waste Disposer,300,1,Tariff 2 
Juice Extractor, 300,1,Tariff 2 
Food Mixer, 125,2,Tariff 2 

Sewing Machine, 75,2, Tariff 2 
Shaver ,15,0.3, Tariff _2 
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The 


SERVICE AGENTS AND DEALERS 


New Zealand network of service and dealers for the BBC 
is as follows: 


AUCKLAND |. Telephone HASTINGS 1 Telephone 


Sales and Service— 
Barson Computers NZ Ltd, 

1 Ngaire Avenue, 5304-049 
Auckland 3 304-631 


John Gilbert Electronics 
73 Parnell Rise, 
Parnell. 390-839 


Other Dealers- 
Computer Terminal 
Hinesoa St 419-053 


Neil Gladden 
Database Services 
8 Kowhatu Rd 


K’ Road Computers (Computability) 
Pitt St. 395-660 


Whitcoulls Ltd 
312 Broadway, Newsarket 343-129 
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Whitcoulls Ltd 
30 Market St Nth 88-039 


CHRISTCHURCH: 


Sales and Service- 
Aftron Computers Ltd 
161 Barbados St. 797-445 


Dealers-— 
TVNZ Enterprises Shop, 
P.O. Box 1945 


Whitcoulls Ltd 


111 Cashel St 794-580 

Canterbury Centre, High St 50-159 

201 Manchester St, 787-561 
DUNEDIN: 

Whitcoulls itd 

143 George St. 774-120 
GORE: 

Lyndon McEntee, 

Educomp, PQ Box 255 7365 
HAMILTON: 

Whitcoulls Ltd 

175 Victoria St. B2-174 
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Whitcoulls Ltd 
113 East Heretaunga St. 84-334 


INVERCARS ILL 


Whitcoulls Ltd 
66 Dee St. 86-063 


PLYMOUTH: 


Winston Electronics 
26 Berwyn Ave. 298-7769 


P. TON TH: 


Whitcoulls Ltd 
Broadway Mall 73-773 


TAURANGA: 


Sales and Service- 
Graham Cheer 


Whitcoulls Ltd 


97 Grey St 87-738 
TE_PUKEs 
May & Associates 
PO Box 345. 83-257 
MARU: 
Whitcoulls Ltd 
182 Stafford St. 88-185 
WANBANU I 3 
Whitcoulls Ltd 
148 Victoria Ave. 54-1993 
TON: 
Ber vice— 
APTEC 
(Applied Engineering and Technology) 
3 Halleys Lane 850-611 
850-800 
Dealers- 
Whitcoulls Ltd 
Lambton Quay 721-921 


Micro Interface (NZ) Ltd 
PO Box 14-441 
Baycourt, Kilbirnie 873-451 
882-444 
10. 12.86 
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ST ARNE T 


By John Andrew 


Neil Orton of the Waikato Acorn User Group wrote a article 
published in last month’s Beeblet titled "Use of Modems’ in 
which he discussed the STARNET facility that is available 
through the Post Office. The article included details of 
the charges for the service. 


Basically all that is required to send written text between 
two computers is a jack-point telephone, a type approved 
modem, communications software (such as COMMSTAR) and a 
subscription to the STARNET facility. The ‘local’ service 
is Australasia based but access is available worldwide 
including to the Microlink facility (TELECOM GOLD) operating 
in the U.K. 


Local directory groups can be set up achieving a higher 
degree of friendliness. Neil Orton has established ome such 
group for BBC/ACORN users. The National group (BBC/ACORN 
COMPUTER USER GROUP NZ INC) is a member of that directory 
group under the USERID UGROOSB (Neville Hudson). Others are 
invited to join by contacting Neil, c/o 1152 Victoria 
Street, Hamilton CUGROOL). The charges for this arrangement 
are s- 


Initial registration $33 (NZPO) 
Plus group administration $10. (WUG) 


As a reminder, 
The ongoing charges are $2.20 per month (NZPO) 


plus usage at 38.5 cents per minute of 
comnect time (NZPUO). 


To establish a connection, the Wellington number dialled is 
730-900 C(for 300 Baud 8 bit, no parity). The computer 
answers with a squeal. Turning the wodem on seals’ the 
commection. 


The prompt from STARNET is PLEASE SIGN ON. At this stage 
enter ID <your userid> and a carriage return. The next 
prompt is for the password, which is initially allocated by 
the STARNET administrator (MIKE READ NZP0O7). 


Entering the command MAIL allows access to the mail transfer 
system. Options for SEND, RECEIVE and SCAN (Cor quit!) 
follow. Communication to another user requires knowledge of 
his ID or, if within a common directory group such as UGR, 
his name (e.g. N.HUDSON). 
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At this stage, the TEXT prompt is an invitation to free type 
in your letter. Your typing is echoed back from the 
computer and some errors may occur, Capart from 
self-inflicted corruptions). These can be corrected by the 
delete key which back spaces. 


CAUTION: The computer can’t handle more that 100 
characters before you MUST enter a carriage return! When 
you have finished, send a carriage return, a .S and 
another carriage return. The computer should tell you 
the letter has been sent. 


As your proficiency grows you can migrate to preparing the 
letters on a wordprocessor (remember the CARRIAGE RETURNS) 
ending with a .END on a new line at the end. The whole text 
can be sent in one lump by entering XMIT to STARNET and then 
OUTPUT your letter from the BBC (for those using COMMSTAR 
software). 


The above refer to the transfer of TEXT files CASCII). It 
is possible to transmit full S bit code data (BASIC programs 
other than *SPOOLed lists) by a file transfer facility FT. 
It is even possible to send TELEX messages by prior 
arrangement with the Post Office. 


STARNE TF DIRECTORY 


Space will be reserved periodically in Beeblet for a 
directory of User Group users accessible via STARNET should 
this be desired by the users concerned. 


Possibly Neil Orton could coordinate an appropriate 
directory which will be published on receipt. 
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PROGRAMMING AIDS —-%. 9 
Review of the HELP, TOOLKIT & SLEUTH ROMS 
by Paul Hobbs. 


The UK BBC user group BEEBUG has produced three ROMS to aid 
BASIC programmers. They are generally good value for money 
and superior to many competitors. All are available from 
BEEBUGSOFT, P.0.Box 109, High Wycombe, Bucks., ENGLAND. 


HELP 8k EPROM 15 page manual Price approx £25 


This ROM provides a condensed user guide inside your 
machine! It is simple to use: *H (no full stop!) gives the 
main subject breakdown amd XH <topic> gives detailed 
information, e.g. *H VDU gives a list of the VDU calls and 
parameters and *H PLOT gives syntax and useage for PLOT. 
The ROM may be searched for all occurences of a string by 
*¥H @ <string>. All information is displayed very quickly. 


This ROM is great for beginners to programming and for the 
forgetful but for more advanced information the User Guides 
are still necessary. So if you think you know your stuff 
don’t waste a valuable socket on this one! 


TOOLKIT 8k EPROM 32 page manual price approx £27 
This is primarily a BASIC program editing facility. All the 


commands are entered as star commands and fall into three 
groups. The first group simply extends some BASIC commands: 


*CLEAR as in CLEAR but includes AZ to Z% 

XxNEW as in NEW but may be a program statement. 
XOLD as in OLD but may be a program statement. 
XREPORT = REPORT: PRINT" at line “sERL’ 


*RENUMBER a powerful, selective RENUMBER command. 
The next group includes: 
XF REE displays the values of PAGE, TOP, LOMEM, 


HIMEM, program length, next free location and 
free memory. 


XMEMORY displays the contents of memory in hex and 
ASCII. 

xXSCREEN saves the screen memory to file. 

*CHECK verifies a file with memory. 

*MOVE relocates a BASIC program and resets PAGE to 
the new value. 

XPACK compacts a BASIC program by removing 
comments and spaces. 

*RECOVER attempts to reinstate a program after the 


"Bad program’ error. 
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IT have found *FREE, XSCREEN and *RECOVER most useful, XPACK 
and *RECOVER have options which make them quite powerful. 
The Basic Extensions ROM has commands similar to *XFREE, 
*MOVE, *PACK, *CHECK and Disc Doctor has better equivalents 
to XMEMORY, *MOVE and *xCHECK. 


The editing facilities of TOOLKIT are excellent and are 
entered via XEDIT. Once in the editor you may scroll 
through your program inserting, replacing, deleting at will 
without the tedium of rewriting comolete lines all the time. 
Beware! always finish with <RETURN> before <ESCAPE> or the 
last line will not be altered. An irritation is that the 
screen only scrolls downward which is confusing — a Wordwise 
like approach would have been nicer. The *UTIL commands add 
to the editing functions: 


XUTIL enters the Utility menu 

XUTIL1A is a string search 

XUTIL2 is a string search and replace 

*UTILS moves program Lines 

*xXUTIL4 lists procedures and functions 

XUTILS lists values of AZ to Z% 

XUTIL6 lists values of other numeric variables 
XUTIL7 lists values of string variables 

*UTILS lists values of the current arrays 
*XUTILS selects the line range for X*UTILs 1 & 2. 


These commands work well but remember a program must be RUN 
and nothing else done if you want to se the values of 
variables. Equivalent but less powerful commands are § found 
in the Basic Extensions ROM and TOOLKIT also has XRENUMBER 
Cq.v.). 


As in other ROMs the BASIC error handling is improved with 
the error pointed to, the message printed and the line 
displayed for editing. This facility is switched on by *ON 
and off by *OFF but in my machine this works a little 
erratically. Some commands Cinevitably) clash with other 
ROMs but they may be prefaced by ’B’ e.g.: *BRECOVER & 
XBEDIT. 


In my opinion TOOLKIT is the best editing ROM on the market 
so far, but many of its functions are duplicated by other 
ROMs, especially by Disc Doctor and Basic Extensions. 
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SLEUTH 8k EPROM 23 page manual Price approx £29 


If you fancy yourself as a BASIC programmer you will find 
that the errors that really cause you to tear your hair out 
are non-fatal or RUNtime ones (to use a compiler’s term). 
The program just doesn’t behave properly or hangs up without 
a message! Program editors like TOOLKIT are not much use 
here but SLEUTH is because it monitors the program while 
it’s running. With SLEUTH you can step through the program 
keeping track of variables, procedures and the display and 
stop to modify values and correct error at any point. 
However it takes a bit of mastering. 


SLEUTH is entered via *SLEUTH and all other instructions are 
entered via its control screens 


LOCad), 

SACve), 

LIicst), 

RUN and 

SOTO all do the obvious things. 

P sets PAGE to a new value 

D initialises a dual screen (SLEUTH and 
Progr am) 

Q quits to BASIC 

B and BL set breakpoints 

A sets the rumning speed of the program 

VS selects variables for monitoring 

VU allows variables to be reset to different 
values 

T toggles the Trace facility on/off 

B toggles breakpoints on/off 

<TAB> and 


<SHIFT + TAB> toggle the display between the control 
and program screens. 


Cc toggles the control screen between 
displaying breakpoints or variables 

SI Single steps and M™ and MF multistep 
through the program 

<SPACE > commences execution 

@ pauses 

<CTRL> speeds up execution 


SLEUTH works well cif Basic Extensions is active it will 
foul it up) and is cleverly designed but I feel you would 
need to be doing a lot of programming to make this one worth 
it. 


Next month Paul Hobbds will review the BASIC EXTENSIONS ROM. 
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Since there is a bit of space, lets have a look at the 
Honeysuckle pattern from the Weaving program — see page 10: 
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DISCOUNT sTTockKs 
Confidential to Members. February 1987 


we are currently holding stocks as follows:— 


Disks (box of 10) 3M DSDD 5.25" $40.00 + $1.00 pp 
Tapes(packet of 20) Tracer C10 $25.00 + $2.00 pp 
TFape(New Member ) EMI C30 $ 5.00 
Reeblet Covers Pre-V-Dex(2 Vols) % 4.50 
foyinter Ribbons Logitec loops $10.00 


For Wellington members, these are available at both monthly 
meetings and workshops. 


For other members, postage will be arranged on receipt of 
your cheque. Address requests tor 


Discount Stocks 

BBC/Acorn User Group of NZ, Inc 
PO Box 9592 

WEL! INGTON 


Address requests for the following to the "’Membership 
Officer’: 


Beeblet Vol 1 3,6,10,11 $ 0.50 each 
Beeblet Vol 2 all except May $ 1.00 each 
Beeblet Vol 3 all $ 1.50 each 
Beebl et Copying '’out of stock’ issues % 3.00 each 
Beeblet Complete sets of Volumes One or Two: 

Limited quantities at $15.00 per volume 


KEKEKKAAAAE SAE KESREAAAESESTAAAAARAERAAAAEEAK AS ERE 
MEMBERSHIP 


Membership of the User Group is on payment of an annual 
subscription from April to March. For the 1986/7 year it 
iss $30.00, plus $5.00 for Wellington members as a local 
branch levy, which entitles attendance at meetings as 
detailed on the back page and page 38. Joining or renewing 
members get all the back issues of the current year —- those 
joining from 1 October may have half the annual subscription 
waived and only receive newsletters from 1 October. 
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wsSsecRrR AROVUP MEETINGS 


ALICKILAND -2nd and 3rd Wednesday of each smonth at Social 
Club, Auckland Hospital, Grafton Road at 7.30pm. 
Contact John Buchanan (Secy), 13 Ohinau st, 
Remuera; David Wilkin (Pres), 29 Rose Camp Rd, 
Birkdale 

North Shores -last Wednesday of the month, 7.30pm, Salvation 

Army Hall, Glenfield Road, Glenfield ph Chris 
419-0543 (wk) 


CHRISTCHURCH: -fortnightly workshops, Monday 6.30pm at Hagley 
High School. ph. Michael 582-267. 

DUNEDIN: -first Thursday of the month. Phone Martin McDowall 
42-031 

HAWKES BAY: —-Alternative months Hastings and Napier. Contact 


Kendall: Napier 435-624, Major: Napier 447-729, 
Mitch: Hastings 85-395. 

INVERCARGILL: -—Phone Evan 330-444 Invercargill. 

NELSON: —second Monday of the month, 7.30pm, Nelson Baptist 
Church, Bridge St. Contact Peter: Richmond 6975, 
Ken: Nelson 85-150, Richard: Richmond 8489. 

PALMERSTON NORTH:-Phone Tom Skinner 9&3-009(wk) 


ROTORUA: Phone Ian 85-383 or Joan 81-336 Cindependent 
group) 

TAUPO: -every second Wednesday, 7.00pm. Contact David 
94-215 ¢h), 835-124 (wk). 

TAURANGA: -every second Wednesday. ph. Chris & Jane 65-076. 

TIMARU: —Phone Lioyd van der Krogt Timaru 61-412. 

TOKOROA: —-ist Friday of month, 7.30pm, Tokoroa High School. 


Contacts Don Fraser, 68-813 or Graeme Robertson, 
65-346 Tokoroa. 


WAIKATO: ~first Monday of the month, 7.50pm, Waikato Tech 
Institute. Ph. Alison or John, Morrinsville 6695. 
WELLINGTON: —second WEDNESDAY of the month, 7.30pm, Royal 
Society Lecture Theatre, Turnbull St, Thorndon. 
—-Wor kshops: fourth Wednesday of month, other 
details: ph. Don 6848-235 or Mike 785-437. 
OTHER CENTRES: ~let us know and we will publish details here. 
BEEBLET 

CONTRIBUTIONS: —most welcome. Listings should be sent in on tape 
or disc. (Tape -~- 2 copies, one at 300 baud please). Please 


include written explanation of listing; text and graphics only 
material welcome too. 


DEADLINES: —-For a particular issue, the last day for material 
is the last day of the month prior to publication. 
ADVERT ISING: -No fixed charge is made for advertising. Supply 


camera ready, deadlines as above. 
Copyright (c) BBC/ACORN COMPUTER USER GROUP OF NZ INC. 


PUBLISHED: monthly except January and mailed to financial menvers. 
Registered Publication with NZPO. 


MEMBERSHIP 
For membership details, see page 35. 


THE BBC/ACORN COMPUTER USER GROUP OF NZ INC, PO Box 9592, WELLINGTON 


Reproduced by SANDIFORD PRINTERS 


